Google
 

Trailing-Edge - PDP-10 Archives - 6.1_emacs_manuals_1er - emacs/qlib.:ej
There are no other files named qlib.:ej in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1
'W+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
	Qht4?ozNYit
c
pw


)s	#- Various Quantities:u.Q^R Various Quantities9q..0[2[6[5
!get1!M.IFI:FC[00[10u5
q0->"Gq0-["Lofoo''
.,(,Q0i).
!foo!
q0-F"E:i6Forward:i1^R Quantity Forward'
q0-B"E:i6Backward:i1^R Quantity Backward'
q0-D"E:i6Delete:i1^R Quantity Delete'
q0-R"E:i6Rubout:i1^R Quantity Rubout'
q0-T"E:i6Twiddle:i1^R Quantity Twiddle'
q0-M"E:i6Mark:i1^R Quantity Mark'
q0-?"E^ft
Type control character or rubout to be inserted, or
F forward, B backward, D delete, R rubout, T twiddle, M Mark
q2u..0]1]0
0fsEchoActive
oget1'
q1"E:i*IQO	Invalid Quantity Operation: 0FG'
fslisten"e
fsEchoDisplayCfsEchoDisplay
^ft6 1u5'
[7
!get2!0fsEchoActive
fsListen"E0^v'
FI:FCu00[2
q0-C"E:i7Character:i2'
q0-W"E:i7Word:i2fw'
q0-A"E:i7Atom:i2^fw'
q0-S"E:i7Sentence
^:i2/[0.[1
.,(q0"Gq0m(m.m^R Forward Sentence)'
"#-q0m(m.m^R Backward Sentence)'w).f(q1j]1]0)/'
q0-P"E:i7Paragraph^:i2/[0.[1.,(q0m(m.m^R Forward Paragraph)w).f(q1j]1]0)/'
q0-L"E:i7Line:i2[0.[1.,(Q0L).f(q1j]1]0)'
q0--"E:i7S-expression:i2^fl'
(q0-()*(q0-))"E:i7List:i2fl'
q0-D"E:i7Defun
^:i2/[0.[1.,(q0"Lq0:S
("EJ'"#L''"#
q0:S
("EZJ'"#R'').f(q1j]1]0)/'
q0-14."E:i7Page^:i2/[0.[1.,(q0:s
).f(q1j]1]0)/'
q0-H"E:i7Whole:i2"lb,.'"#.,z''
q0-?"E^ft
Type quantity name: C character, W word, S sentence, P paragraph,
L line, - S-expression, ( or ) list, D defun, ^L page
]2oget2'
q2"E:i*IQT	Invalid Quantity Type: 0FG'
q5"n^ft7'
q2[.Q:m(m.m1)^R Quantity Forward-.[0.QR
q0M(M.M& Maybe Push Point)
1^R Quantity Backward..[0-.QL
q0M(M.M& Maybe Push Point)
1^R Quantity Delete[9.Q:m(m.m& Kill Text)^R Quantity Rubout -[9-.Q:m(m.m& Kill Text)^R Quantity Twiddle q.Q,:m(m.m& Exchange Subr)^R Quantity Mark.Q[0jq0:]01~Filename~QLIB~DOC~ ~Filename~AThis here -*-TECO-*- code a version of "Various Quantities"
~DOC~ & Setup QLIB Library.S Turn on C-Q for ^R Various Quantities.
~DOC~ ^R Various Quantities^R Quotes non-letters, otherwise hacks various Quantities.
Note that @ and ? are letters.
First character following is operation:
  F forward, B backward, D delete, R rubout, T twiddle, M mark region
Second character following is quantity type:
  A Atom, C character, W word, S sentence, P paragraph, L line,
  - S-expression, ( or ) list, D defun, ^L page seperated by ^Ls
Numeric arguments are obeyed.  ? for help.
Note that Q-register .Q is used to remember the current mode.  It contains an "fw-macro"
~DOC~ ^R Quantity Forward/^R Forward by quantities determined by .Q
~DOC~ ^R Quantity Backward0^R Backward by quantities determined by .Q
~DOC~ ^R Quantity Delete+^R Delete quantities determined by .Q
~DOC~ ^R Quantity Rubout+^R Rubout quantities determined by .Q
~DOC~ ^R Quantity Twiddleu^R Twiddle quantities determined by .Q
See documentation on ^R Twiddle Characters for how the argument is used
~DOC~ ^R Quantity Mark1^R Mark region as quantity determined by .Q
~DIRECTORY~+& Setup QLIB Library
^R Various Quantities
^R Quantity Forward
^R Quantity Backward
^R Quantity Delete
^R Quantity Rubout
^R Quantity Twiddle
^R Quantity Mark

~INVERT~[1<Q1-1U1Q1FP;>Q1